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Ib-se $ep-1984 t 90: 4 #4 VAX-11 FORTRAN eae ae page 
-Sep-1984 6: DISKSVMSMASTER: CERF .SRCJERLLOGMSG.FOR; 


Version: *v04-000' 
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COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE fs “git UNDER A LICENSE AND MAY BE USED AND CO: .ED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at SE_ AND WITH THE 
INCLUSION OF THe ABOVE COPYRIGHT NOT ice. THIS SOFTWARE OR ANY OTHER 
so a oo oo MAY A} BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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13 TLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

1 

13 phe. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

18 SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
dh CORPORATION. 

1 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

§ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

¢ PARAAAALALALALALELALEAAL ALES EASE RESALE ARE RL ASA RE SE RRR AAA AA AARA RRA A RARER ESS SD SO 
0037 
a : Author Brian Porter Creation date 07-FEB-1982 
0030 ++ 
Boe, Functional description 
6038 This module provides dispatching for entries logged by erl$logmessage. 
te Dispatching is done by emb$w_lm_msgtyp. 
Bos6 Modified by: 
0038 
00 v03-009 EADO196 Elliott A. Drayton 66-Jul-1984 
it Changed LUN, OPTION and RECCNT to now come from SYECOM. 

1 
3eF v03-008 SAR0271 Sharon A, Reynolds 18-Jun-1984 

t - Added TMSCP support. 

5 V03-007 SARO196 Sharon A. Reynolds, 20-F eb-1984 

$ Added an SYE update that: 


= Added code to lnterrosate the ‘mscp command reference’ 
numbers. If zero output the entry immediately. 

- Fixed a bug in the output of mscp entries when 

errer logging mailbox selected as output. 


V03-006 SARO134 Sharon A. Reynolds 9-Sep-1983 
Added changes that were made to SYE Corl \ogese? to 
resove the mscp ‘first part’ info msg and fix a bug 
relating to summary reports. 


v03-005 SARO073 Sharon A. Reynolds, 20-Jun-1983 
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C 

: Output the entry header. 
Call HEADER (Lstlun) 
Call LOGGER (istlun, *ERLSLOGMESSAGE ENTRY") ‘ 
Call DHEAD2 (Lstlun,*1/0°,emb$b_lm_naming,emb$t_\m_name,emb$w_\m_unit) 


Else if (option .eq. ‘S') then ' Full report 
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Seek 


] 
x 
16-Sep-1984 00:21:37  VAX=11 FORTRAN 3.456 Page 2. ER 
g- 908-1 38e 90:83:85 DI SKSVMSMASTER: CERF, SRCJERLLOGMSG. FORTY | 
H C Changed the carriage control in the ‘format’ statements 04 
¢ for use with ERF. | Oe 
C v03-004 BP0004 Brian Porter, 08-F EB-1983 
¢ Corrected argument List to pudriver. be 
C v03-003 BP0003 Brian Porter, 18-JUN-1982 04 
5 ¢ Added ci780 support. 7 
£ v03-002 BP0002 Brian Porter, 25-MAY-1982 
c Added ‘option’ filtering. 
¢ 
0 c v03-001 BP0001 Brian Porter, 14-APR-1982 
ota Cc Added more routines. 
if ¢ee 
+ cee 
3H Subroutine ERLSLOGMESSAGE_DISPATCHER (Llun,record_length,reccnts, option) 
007 
7 include ‘src$:msghdr.for /nolist' 
13 include ‘src$:emblmdef.for /nolist’ 
include ‘src$:syecom.for /nolist' 
5 byte lun 
3 integere4 record_length 
integer*4 reccnts 
8 $$ character*! option 
0340 byte mount_flag_and_label_array(16) 
0342 integer*4 volume_mount_ flag 
2 integere4 current_volume_label 
b3e3 equivalence (mount_flag_and_label_array(1),volume_mount_ flag) 
Osc? equivalence (mount_flag_and_label"array(5),current_volume_label) 
8 
ge 
350 C Via the message type, determine which module to call to decode/output 
51 C the MSCP entry. 
25 C 
5 if ¢ 
2 { emb$w_lm_msgtyp .eq. 1 ! Disk message 
5 1 emb$w_tm_msgtyp .£0. 2 ! Tape message 
37 1) then ~ sae ° ° 
25 if (option .eq. 'B*) then ! Brief report 
| 
| 
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tion .eq. 'B' 
h 


NTERVENE DECREMENT (Lstlun) 
ADRIVER_COGMESSAGE (\stlun,option) 


5 
ERLSLOGMESSAGE _DISPATCHER Igo$e 1984 00:21: VAX-11 FORTRAN ¥3.4-56 Page 3. 
=$007 1382 99:80:35 DI SKSVMSMASTER: CERF .SRCJERLLOGMSG. FORT | 
C 
C Determine if outpyt is going o the mailbox or if there is no message 
f : text logged in this packet, if so output the entry immediately. | 
7 if ( 
re : aot iben_chennet -NE. 0 
i: 1 LIBSEXTZV(0,31,emb$b_lm_msgtxt) .£0. 0 
of 1) then 
79 Call INTERVENE_DECREMENT (istlun) 
8 1 Volume mount flag = -1 
4 Call GET CURRENT LABEL (3,emb$l_hd_sid,emb$b_lm_naming,emb$t_lm_name, 
6 1 emb$w_Tm_unit REF (current_volume label), #5) 
5 Volume_mount_flag = ZLOC(current_volume_label) 
0 5 Cont inue 
Call DISK_TAPE_DRVR_MSCP_DISPATCHER (istlun get ton. recent. 
0 3 1 mount_flag_and_label_array,record_size, (1) 
a ‘ Else 
398 C Save the entry so it can be output with the software status information 
baee | that is logged in a seperate packet. 
039 Call DISK_TAPE_DRIVERS_MSCP_Q (record_size,reccnt,emb$b_\lm_msgtxt) 
$398 Endif 
+4 Endif 
else if (emb$w_lm_msgtyp .eq. 3) then ! CI Port message 
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else if (emb$Sw_lm_msgtyp .eq. 4) then ! UDA Port message 


Lun 
() 


1 .or, 

1 option .eq. ‘B' 

1)¢t 

) 

Lstlun,option,reccnt,record size) | 
| 
| 
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awn 


6 page 
RCJERLLOGMSG.FOR; 


SoS 


else if (emb$Sw_lm_msgtyp .eq. 5) then ! Available Attention Msg 


| 
1 aeeten eq. ‘S' 
° ption -eq. ‘B' 
; opt io q 
Call INTERVENE_DECREMENT (Lstlun) 
aut Facto -EQ, 'S") then 
RCTOF (lstlun) 


Un. SEAL $LOGNE SAGE ENTRY") 
2'1/0° ,emb$b_lm_naming,emb$t_lm_name,emb$w_lm_unit) 


Mee ILABLE" MSCP ATTENTION MESSAGE ' 


—— 
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~ 
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if (option “35 “a"2 


then 
Catt SCPS$K -AVATN (Lstlun,.true.) 


else if (emb$Sw_im_msgtyp .eq. 6) then ! Duplicate Unit Msg 


if ¢ 
1 option .eq. ‘S' 
1 orien e ‘B' 
cf?) — aa 
1 yo : 
Call INTERVENE_DECREMENT (istlun) 


If (option .—Q. *S*) then 
So) B RCTOF (lstlun) 
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Endi 
Call HEADER (istlun 
Call LOGGER eto "ERLSLOGMESSAGE ENTRY") 
Call DHEAD2 (istlun,*1/0' ,emb$b_lm_naming,emb$t_lm_name,emb$w_lm_unit) 
Call LINCHK (Lstlun 
wrieestettun, 10) ” MSGPLICATE UNIT NUMBER’ MSCP ATTENTION MESSAGE’ 
en 
75 ( 
then 
7 caut Rsce CPSs *a5 ps _DOPUN (Lstlun,.true.) 
endif 
7 else if (emb$w_lm_msgtyp .eq. 7) then ! Invalid Command Msg 
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ERLSLOGMESSAGE _DISPATCHER i$-Se0-19 & 00:81:37 VAX=11 FORTRAN 


e 
-Sep-1984 DISKSVMSMASTER: teat 28 ©RCJERLLOGMSG.FOR; Rog 
option .eq. ‘S' 


1 
i gotten .0e. 8’ 
1 SP then a 


wn 


Call INTERVENE _DECREMENT (Lstlun) 


If fept ten -EQ, ‘S*') then 
RCTOF (lstlun) 


a> 


223 


Lun) 

Lun, "ERLSLOGMESSAGE ENTRY") 

Lun,'1/0° ,emb$b_lm_naming,emb$t_lm_name,emb$w_lm_unit) 
l 

) 


un,2) 


"INVALID COMMAND'' MSCP END MESSAGE‘ 


~o 
uw 
oO 8EO FOO MO 


y hs eq. ‘S') 
SCP_INV L1d_ COMMAND -END_MESAGE (Lstlun) 


else if (emb$Sw_lm_msgtyp .eq. 8) then ! Acess Path Attention Msg 


Seer aT Ssese 
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if ¢ 

1 option .eq. ‘S' 

i option e ‘B' 

ia 

Call INTERVENE_DECREMENT (Lstlun) 
| 
| 
| 
| 
| 
| 
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If (option .—Q. 'S') then 
Call FRCTOF (lstlun) 
Endif 


Call HEADER (Lstlun) 
Call LOGGER (Lstlun, ‘ERLSLOGMESSAGE ENTRY") 
Call DREAD? (istlun,'1/0°,emb$b_lm_naming,emb$t_\lm_name,emb$w_lm_unit) 


Call LINCHK tlun,2 
writgstettun. | ) Met ess PATH'' MSCP ATTENTION MESSAGE‘ 
n 


DP) at et et et et ot 2 
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fons tee 85 then 
faut SCPS$$K_OP _AePTH ilesten..trus.t 
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The IF=THEN-ELSE should be expanded at this point to add 
new entry sub codes. 


nanan 


else 
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PROGRAM SECTIONS 
Name 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


5c 


ERLSLOGME SSAGE DISPATCHER 


Total Space Allocated 


ifoseoe19Re 00:91:37 


DISKSVMSMASTER 


39 C Unknown message type, call the applicable routines to decode/output the 
re ; header and ou put the remainder oF the packet in a hex longword Format. 
2g if ¢ 
4 1 option .eq. ‘S' 
44 1 .or 
45 1 option -eq. ‘B' 
279 1) then 
ee Call ERLLOGMSG (\stlun,record_size) 
549 endif 
331 endif 
8 26 return 
55 
0554 end 


Bytes Attributes 
820 PIC CON REL LCL SHR EXE R&D NOWRT LONG 
201 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
424 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
2001 


Name 
ERLSLOGME SSAGE _DISPATCHER 


Name Address Type 
cCP_11750 4-00 117 L*1 
CP_11722 4- 14 L*4 
CURRENT VOLUME _LABEL 4- 0D i4 
EMBSB_LA_CLASS - 14 Ll 
EMBSB_LM_TYPE - 0 [4 
EMBST_LM_NAME 4 It 
EMBSW_HD_ERRSEQ © 4 Ie 
EMBSW_LM_UNIT 4- f Lt 
EOF _FCAG 4- L*4 
LINES 4- 7 [%4 
OPTION 2200000028 CHAR 
PRINTER 4- 80 6 68 4 


LSTLUN 
MAILBOX_CHANNEL 
OPTIONS 

RECCNT 


VAX=11 FORTRAN 


it 


Roa 


3.4-56 P 


e 
ERF .SRE JERLLOGMSG.FOR; 


nf 


AF 


aes 


-00000000 


LABELS 
Address 
0-0000007E 


Type Name 
DHEA 


FUNCTIONS AND 


AP ‘ 1*4 

4 1*4 

4 A Ll 

4 \f L*1 

4 18 Ll 
ARRAYS 

Address Type 


Label 
5 


SUBROUTINES REFERENCED 


NCHK 
MSCPS$K_OP 
PADRIVER CL OT OGMES SAGE 


ERLSLOGMESSAGE DISPATCHER 


AL 
VALID" TYPE 
VOLUME _OUTPUT 


meme 


=HD- 
MOUNT 


Address 


1-000000C3 


MB 
MBSB_LM erat 
MBSQ 


Label 
10° 


TIME 
TF LAG_AND_LABEL_ARRAY 


Tyoe 


if-sep-1984 00:81:37 VAX=11 FORTRAN 
; 
L 
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S DISKSVMSMASTER: teat 38 SRCJERLLOGMSG.FOR; st 
4 RECORD_LENGTH 

VALID_CLASS 

4 


VALID ENTRY 
VOLUME MOUNT. FLAG 


Name 
the Fre PRI NENE Fe A 
LOGGER = DECREMENT 


L 
MSCPS$$K_0 
PUDRIVER OnSCP DISPATCHER 


Type Name 
DISK ee grrve MSCP_DISPATCHER 
GET _CURRENT_LABEL 
LIBSEX ar 
MSCPSSK OP_ACPTH 
MSCP_ INDALID. COMMAND _END_ME SAGE 


1%4 
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NN eee 


: | 
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16-Sep-1984 00:21:37 VAX=11 FORTRAN V3.4-56 P 
eet Pi 99:88:09 DISKSVMSMASTER: CERF .SRCJERLLOGMSG. FORTY , 


Subroutine ERLLOGMSG (Llun,record_length) 


33588 


include Sale pane «ped bg /nolist’ 
include ‘src$:embimdef.for /nolist’ 
include ‘src$:syecom.for /nolist' 


— 


byte lun 


integer*4 record_length 
integer*4 compress4 


RCTOF (listlun) 

EADER (istlun) 

OGGER (Lstlun, *ERLSLOGMESSAGE ENTRY") 

HEAD2 (Lstlun,'1/0",emb$b_lm_naming,emb$t_lm_name,emb$w_\m_unit) 


ee = 
ori” 


Entry ERLLOGMSG2 (lun,record_length) 

Call LINCHK (Lstlun,3) 

write(lstlun,90) ‘EMBSW_LM_MSGTYP’,(emb$w_lm_msgtyp,i = 1,2) 
90 format(/' *,t8,a,t28,24.4,/, 

1 t40,a,i<compress4 (LibSextzv(0,16,emb$w_lm_msgtyp))>) 

Call DUMPREG (lstlun,((record_size + 3)/4) = 9,emb(38)) 


return 
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end 
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PROGRAM SECTIONS 
Name 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 


Total Space Allocated 


Add:iess Type 


ib-ge Sep-1 


-Sep-1 


Bytes Attributes 


1 PIC CON REL LCL SHR 
PIC CCN REL LCL SHR 

1 PIC CON REL LCL NOSHR N 

51 PIC OVR REL GBL SHR N 

44 PIC OVR REL GBL SHR N 

944 


Address Type Name 
0-00000028 ERLLOGMSG2 


Address Type 


4-00000011 L*1 
400000014 4 
00000010 Li 
00000011 Le! 
00000015 CHAR 
0000006 I+ 
00000012 I* 
4-0000501D L#1 
2-00000090 +4 
400000027 1*4 
4-OQ000001F 184 
40000008 L*4 
AP-00007008@ I*4 
4-00050019  L+1 
99000018 L#1 
4-00000018 L*1 


Bytes Dimensions 
512 (0:511) 


460 (460) 
8 (2) 


VAX-11 FORTRAN 


DISKSVMSMASTER: feat 8h SRCJERLLOGMSG.FOR; os 


MBS$T~LM~NAME 
EMBSW-HDERRSEQ 
MBSW-LM—UNIT 
LSTLUN 
MAILBOX, CHANNEL 
RECORD LENGTH 
VALID_CLASS 


LID-ENTRY 
VOLUME _OUTPUT 


ERLLOGMSG 16- sop-1984 09: g}:3 VAX=11 FORTRAN V3.4-56 page 
-Sep-1984 1 DISKSVMSMASTER: CERF .SRCJERLLOGMSG.FOR; 


LABELS 
Address Label 
1-00000034 90° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 DHEAD2 DUMPREG FRCTOF HEADER I*4 LIBSEXTZV 
LINCHK LOGGER 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:ERLLOGMSG/0BJ=0BJ$:ERLLOGMSG MSRC$:ERLLOGMSG 


/CHECK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUGs (NOS YREOL § TRACEB 
/STANDARD= (NOS YNTAX NOSOURCE FORM) | 
/SHOW= (NOPREP PROCESSOR NOINEL ODE MA 
/NOG_FLOATING 714 SOPTIMITE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 5.49 seconds 
Elapsed Time: 16.60 seconds 
Page Faults: 160 

Dynamic Memory: 192 pages 
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